Object Cross Reference Report


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

a    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 115]        (Unnamed_Main)
    Use   [psis.for, 122]        (Unnamed_Main)
    Use   [psis.for, 127]        (Unnamed_Main)

a    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 6]        (Unnamed_Main)
    Set   [Q-D.for, 46]          (Unnamed_Main)
    Use   [Q-D.for, 151]         (Unnamed_Main)

a    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 115]        (Unnamed_Main)
    Use   [psis.for, 122]        (Unnamed_Main)
    Use   [psis.for, 127]        (Unnamed_Main)

a    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 4]       (Unnamed_Main)
    Set   [T-00.for, 24]         (Unnamed_Main)
    Use   [T-00.for, 101]        (Unnamed_Main)

a    (Variable)
  Declared as: REAL (implicit)
    Set   [Tmat1.for, 2009]      (Unnamed_Main)
    Use   [Tmat1.for, 2016]      (Unnamed_Main)
    Set   [Tmat1.for, 2024]      (Unnamed_Main)
    Use   [Tmat1.for, 2030]      (Unnamed_Main)
    Set   [Tmat1.for, 2036]      (Unnamed_Main)
    Use   [Tmat1.for, 2044]      (Unnamed_Main)

acr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 141]     bessel
    Set   [psis.for, 151]        bessel
    Use   [psis.for, 152]        bessel
    Use   [psis.for, 153]        bessel
    Use   [psis.for, 154]        bessel

acr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 235]     cbess
    Set   [psis.for, 245]        cbess
    Use   [psis.for, 246]        cbess
    Use   [psis.for, 247]        cbess
    Use   [psis.for, 248]        cbess

acr    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 326]      bessel
    Set   [Q-D.for, 336]         bessel
    Use   [Q-D.for, 337]         bessel
    Use   [Q-D.for, 338]         bessel
    Use   [Q-D.for, 339]         bessel

acr    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 420]      cbess
    Set   [Q-D.for, 430]         cbess
    Use   [Q-D.for, 431]         cbess
    Use   [Q-D.for, 432]         cbess
    Use   [Q-D.for, 433]         cbess

acr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 141]     bessel
    Set   [psis.for, 151]        bessel
    Use   [psis.for, 152]        bessel
    Use   [psis.for, 153]        bessel
    Use   [psis.for, 154]        bessel

acr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 235]     cbess
    Set   [psis.for, 245]        cbess
    Use   [psis.for, 246]        cbess
    Use   [psis.for, 247]        cbess
    Use   [psis.for, 248]        cbess

acr    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 217]     bessel
    Set   [T-00.for, 227]        bessel
    Use   [T-00.for, 228]        bessel
    Use   [T-00.for, 229]        bessel
    Use   [T-00.for, 230]        bessel

acr    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 311]     cbess
    Set   [T-00.for, 321]        cbess
    Use   [T-00.for, 322]        cbess
    Use   [T-00.for, 323]        cbess
    Use   [T-00.for, 324]        cbess

acr    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1048]   bessel
    Set   [Tmat1.for, 1058]      bessel
    Use   [Tmat1.for, 1059]      bessel
    Use   [Tmat1.for, 1060]      bessel
    Use   [Tmat1.for, 1061]      bessel

acr    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1142]   cbess
    Set   [Tmat1.for, 1152]      cbess
    Use   [Tmat1.for, 1153]      cbess
    Use   [Tmat1.for, 1154]      cbess
    Use   [Tmat1.for, 1155]      cbess

acr1    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 731]        vr
    Use   [psis.for, 732]        vr
    Use   [psis.for, 736]        vr
    Use   [psis.for, 737]        vr
    Use   [psis.for, 737]        vr
    Use   [psis.for, 739]        vr

acr1    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 731]        vr
    Use   [psis.for, 732]        vr
    Use   [psis.for, 736]        vr
    Use   [psis.for, 737]        vr
    Use   [psis.for, 737]        vr
    Use   [psis.for, 739]        vr

acr1    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 699]     vr
    Set   [T-00.for, 807]        vr
    Use   [T-00.for, 808]        vr
    Use   [T-00.for, 812]        vr
    Use   [T-00.for, 813]        vr
    Use   [T-00.for, 813]        vr
    Use   [T-00.for, 815]        vr

acr1    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1530]   vr
    Set   [Tmat1.for, 1638]      vr
    Use   [Tmat1.for, 1639]      vr
    Use   [Tmat1.for, 1643]      vr
    Use   [Tmat1.for, 1644]      vr
    Use   [Tmat1.for, 1644]      vr
    Use   [Tmat1.for, 1646]      vr

acr2    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 732]        vr
    Use   [psis.for, 738]        vr
    Use   [psis.for, 738]        vr

acr2    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 732]        vr
    Use   [psis.for, 738]        vr
    Use   [psis.for, 738]        vr

acr2    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 699]     vr
    Set   [T-00.for, 808]        vr
    Use   [T-00.for, 814]        vr
    Use   [T-00.for, 814]        vr

acr2    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1530]   vr
    Set   [Tmat1.for, 1639]      vr
    Use   [Tmat1.for, 1645]      vr
    Use   [Tmat1.for, 1645]      vr

acr3    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 733]        vr
    Use   [psis.for, 734]        vr
    Use   [psis.for, 745]        vr
    Use   [psis.for, 746]        vr
    Use   [psis.for, 746]        vr
    Use   [psis.for, 750]        vr

acr3    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 733]        vr
    Use   [psis.for, 734]        vr
    Use   [psis.for, 745]        vr
    Use   [psis.for, 746]        vr
    Use   [psis.for, 746]        vr
    Use   [psis.for, 750]        vr

acr3    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 699]     vr
    Set   [T-00.for, 809]        vr
    Use   [T-00.for, 810]        vr
    Use   [T-00.for, 821]        vr
    Use   [T-00.for, 822]        vr
    Use   [T-00.for, 822]        vr
    Use   [T-00.for, 826]        vr

acr3    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1530]   vr
    Set   [Tmat1.for, 1640]      vr
    Use   [Tmat1.for, 1641]      vr
    Use   [Tmat1.for, 1652]      vr
    Use   [Tmat1.for, 1653]      vr
    Use   [Tmat1.for, 1653]      vr
    Use   [Tmat1.for, 1657]      vr

acr4    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 734]        vr
    Use   [psis.for, 747]        vr
    Use   [psis.for, 747]        vr

acr4    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 623]     vr
    Set   [psis.for, 734]        vr
    Use   [psis.for, 747]        vr
    Use   [psis.for, 747]        vr

acr4    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 699]     vr
    Set   [T-00.for, 810]        vr
    Use   [T-00.for, 823]        vr
    Use   [T-00.for, 823]        vr

acr4    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1530]   vr
    Set   [Tmat1.for, 1641]      vr
    Use   [Tmat1.for, 1654]      vr
    Use   [Tmat1.for, 1654]      vr

ai    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 2]       (Unnamed_Main)
    Declare   [T-00.for, 4]      (Unnamed_Main)
    Set   [T-00.for, 52]         (Unnamed_Main)
    Set   [T-00.for, 156]        (Unnamed_Main)
    Set   [T-00.for, 175]        (Unnamed_Main)
    Set   [T-00.for, 188]        (Unnamed_Main)
    Use   [T-00.for, 192]        (Unnamed_Main)
    Contain   [T-00.for, 9]      hej

alpha    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 6]        (Unnamed_Main)

alpha    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 4]       (Unnamed_Main)

ampl    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 114]        (Unnamed_Main)
    Use   [psis.for, 117]        (Unnamed_Main)
    Use   [psis.for, 119]        (Unnamed_Main)

ampl    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 114]        (Unnamed_Main)
    Use   [psis.for, 117]        (Unnamed_Main)
    Use   [psis.for, 119]        (Unnamed_Main)

ampl2    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 113]        (Unnamed_Main)
    Use   [psis.for, 114]        (Unnamed_Main)
    Use   [psis.for, 118]        (Unnamed_Main)

ampl2    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 4]       (Unnamed_Main)
    Set   [psis.for, 113]        (Unnamed_Main)
    Use   [psis.for, 114]        (Unnamed_Main)
    Use   [psis.for, 118]        (Unnamed_Main)

ansa    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 185]        bn
    Use   [psis.for, 199]        bn
    Use   [psis.for, 201]        bn
    Set   [psis.for, 202]        bn
    Use   [psis.for, 205]        bn
    Use   [psis.for, 210]        bn
    Use   [psis.for, 212]        bn
    Set   [psis.for, 213]        bn

ansa    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 279]        cbn
    Use   [psis.for, 293]        cbn
    Use   [psis.for, 295]        cbn
    Set   [psis.for, 296]        cbn
    Use   [psis.for, 299]        cbn
    Use   [psis.for, 304]        cbn
    Use   [psis.for, 306]        cbn
    Set   [psis.for, 307]        cbn

ansa    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 362]      bn
    Set   [Q-D.for, 370]         bn
    Use   [Q-D.for, 384]         bn
    Use   [Q-D.for, 386]         bn
    Set   [Q-D.for, 387]         bn
    Use   [Q-D.for, 390]         bn
    Use   [Q-D.for, 395]         bn
    Use   [Q-D.for, 397]         bn
    Set   [Q-D.for, 398]         bn

ansa    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 456]      cbn
    Set   [Q-D.for, 464]         cbn
    Use   [Q-D.for, 478]         cbn
    Use   [Q-D.for, 480]         cbn
    Set   [Q-D.for, 481]         cbn
    Use   [Q-D.for, 484]         cbn
    Use   [Q-D.for, 489]         cbn
    Use   [Q-D.for, 491]         cbn
    Set   [Q-D.for, 492]         cbn

ansa    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 185]        bn
    Use   [psis.for, 199]        bn
    Use   [psis.for, 201]        bn
    Set   [psis.for, 202]        bn
    Use   [psis.for, 205]        bn
    Use   [psis.for, 210]        bn
    Use   [psis.for, 212]        bn
    Set   [psis.for, 213]        bn

ansa    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 279]        cbn
    Use   [psis.for, 293]        cbn
    Use   [psis.for, 295]        cbn
    Set   [psis.for, 296]        cbn
    Use   [psis.for, 299]        cbn
    Use   [psis.for, 304]        cbn
    Use   [psis.for, 306]        cbn
    Set   [psis.for, 307]        cbn

ansa    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 253]     bn
    Set   [T-00.for, 261]        bn
    Use   [T-00.for, 275]        bn
    Use   [T-00.for, 277]        bn
    Set   [T-00.for, 278]        bn
    Use   [T-00.for, 281]        bn
    Use   [T-00.for, 286]        bn
    Use   [T-00.for, 288]        bn
    Set   [T-00.for, 289]        bn

ansa    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 347]     cbn
    Set   [T-00.for, 355]        cbn
    Use   [T-00.for, 369]        cbn
    Use   [T-00.for, 371]        cbn
    Set   [T-00.for, 372]        cbn
    Use   [T-00.for, 375]        cbn
    Use   [T-00.for, 380]        cbn
    Use   [T-00.for, 382]        cbn
    Set   [T-00.for, 383]        cbn

ansa    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1084]   bn
    Set   [Tmat1.for, 1092]      bn
    Use   [Tmat1.for, 1106]      bn
    Use   [Tmat1.for, 1108]      bn
    Set   [Tmat1.for, 1109]      bn
    Use   [Tmat1.for, 1112]      bn
    Use   [Tmat1.for, 1117]      bn
    Use   [Tmat1.for, 1119]      bn
    Set   [Tmat1.for, 1120]      bn

ansa    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1178]   cbn
    Set   [Tmat1.for, 1186]      cbn
    Use   [Tmat1.for, 1200]      cbn
    Use   [Tmat1.for, 1202]      cbn
    Set   [Tmat1.for, 1203]      cbn
    Use   [Tmat1.for, 1206]      cbn
    Use   [Tmat1.for, 1211]      cbn
    Use   [Tmat1.for, 1213]      cbn
    Set   [Tmat1.for, 1214]      cbn

ansb    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 189]        bn
    Use   [psis.for, 199]        bn
    Set   [psis.for, 201]        bn
    Use   [psis.for, 204]        bn
    Use   [psis.for, 210]        bn
    Set   [psis.for, 212]        bn

ansb    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 283]        cbn
    Use   [psis.for, 293]        cbn
    Set   [psis.for, 295]        cbn
    Use   [psis.for, 298]        cbn
    Use   [psis.for, 304]        cbn
    Set   [psis.for, 306]        cbn

ansb    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 362]      bn
    Set   [Q-D.for, 374]         bn
    Use   [Q-D.for, 384]         bn
    Set   [Q-D.for, 386]         bn
    Use   [Q-D.for, 389]         bn
    Use   [Q-D.for, 395]         bn
    Set   [Q-D.for, 397]         bn

ansb    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 456]      cbn
    Set   [Q-D.for, 468]         cbn
    Use   [Q-D.for, 478]         cbn
    Set   [Q-D.for, 480]         cbn
    Use   [Q-D.for, 483]         cbn
    Use   [Q-D.for, 489]         cbn
    Set   [Q-D.for, 491]         cbn

ansb    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 189]        bn
    Use   [psis.for, 199]        bn
    Set   [psis.for, 201]        bn
    Use   [psis.for, 204]        bn
    Use   [psis.for, 210]        bn
    Set   [psis.for, 212]        bn

ansb    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 283]        cbn
    Use   [psis.for, 293]        cbn
    Set   [psis.for, 295]        cbn
    Use   [psis.for, 298]        cbn
    Use   [psis.for, 304]        cbn
    Set   [psis.for, 306]        cbn

ansb    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 253]     bn
    Set   [T-00.for, 265]        bn
    Use   [T-00.for, 275]        bn
    Set   [T-00.for, 277]        bn
    Use   [T-00.for, 280]        bn
    Use   [T-00.for, 286]        bn
    Set   [T-00.for, 288]        bn

ansb    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 347]     cbn
    Set   [T-00.for, 359]        cbn
    Use   [T-00.for, 369]        cbn
    Set   [T-00.for, 371]        cbn
    Use   [T-00.for, 374]        cbn
    Use   [T-00.for, 380]        cbn
    Set   [T-00.for, 382]        cbn

ansb    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1084]   bn
    Set   [Tmat1.for, 1096]      bn
    Use   [Tmat1.for, 1106]      bn
    Set   [Tmat1.for, 1108]      bn
    Use   [Tmat1.for, 1111]      bn
    Use   [Tmat1.for, 1117]      bn
    Set   [Tmat1.for, 1119]      bn

ansb    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1178]   cbn
    Set   [Tmat1.for, 1190]      cbn
    Use   [Tmat1.for, 1200]      cbn
    Set   [Tmat1.for, 1202]      cbn
    Use   [Tmat1.for, 1205]      cbn
    Use   [Tmat1.for, 1211]      cbn
    Set   [Tmat1.for, 1213]      cbn

ansc    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 199]        bn
    Use   [psis.for, 202]        bn
    Set   [psis.for, 210]        bn
    Use   [psis.for, 211]        bn
    Use   [psis.for, 213]        bn

ansc    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 293]        cbn
    Use   [psis.for, 296]        cbn
    Set   [psis.for, 304]        cbn
    Use   [psis.for, 305]        cbn
    Use   [psis.for, 307]        cbn

ansc    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 362]      bn
    Set   [Q-D.for, 384]         bn
    Use   [Q-D.for, 387]         bn
    Set   [Q-D.for, 395]         bn
    Use   [Q-D.for, 396]         bn
    Use   [Q-D.for, 398]         bn

ansc    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 456]      cbn
    Set   [Q-D.for, 478]         cbn
    Use   [Q-D.for, 481]         cbn
    Set   [Q-D.for, 489]         cbn
    Use   [Q-D.for, 490]         cbn
    Use   [Q-D.for, 492]         cbn

ansc    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Set   [psis.for, 199]        bn
    Use   [psis.for, 202]        bn
    Set   [psis.for, 210]        bn
    Use   [psis.for, 211]        bn
    Use   [psis.for, 213]        bn

ansc    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Set   [psis.for, 293]        cbn
    Use   [psis.for, 296]        cbn
    Set   [psis.for, 304]        cbn
    Use   [psis.for, 305]        cbn
    Use   [psis.for, 307]        cbn

ansc    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 253]     bn
    Set   [T-00.for, 275]        bn
    Use   [T-00.for, 278]        bn
    Set   [T-00.for, 286]        bn
    Use   [T-00.for, 287]        bn
    Use   [T-00.for, 289]        bn

ansc    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 347]     cbn
    Set   [T-00.for, 369]        cbn
    Use   [T-00.for, 372]        cbn
    Set   [T-00.for, 380]        cbn
    Use   [T-00.for, 381]        cbn
    Use   [T-00.for, 383]        cbn

ansc    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1084]   bn
    Set   [Tmat1.for, 1106]      bn
    Use   [Tmat1.for, 1109]      bn
    Set   [Tmat1.for, 1117]      bn
    Use   [Tmat1.for, 1118]      bn
    Use   [Tmat1.for, 1120]      bn

ansc    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1178]   cbn
    Set   [Tmat1.for, 1200]      cbn
    Use   [Tmat1.for, 1203]      cbn
    Set   [Tmat1.for, 1211]      cbn
    Use   [Tmat1.for, 1212]      cbn
    Use   [Tmat1.for, 1214]      cbn

answr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Use   [psis.for, 183]        bn
    Use   [psis.for, 185]        bn
    Use   [psis.for, 187]        bn
    Use   [psis.for, 189]        bn

answr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Use   [psis.for, 277]        cbn
    Use   [psis.for, 279]        cbn
    Use   [psis.for, 281]        cbn
    Use   [psis.for, 283]        cbn

answr    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 362]      bn
    Use   [Q-D.for, 368]         bn
    Use   [Q-D.for, 370]         bn
    Use   [Q-D.for, 372]         bn
    Use   [Q-D.for, 374]         bn

answr    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 456]      cbn
    Use   [Q-D.for, 462]         cbn
    Use   [Q-D.for, 464]         cbn
    Use   [Q-D.for, 466]         cbn
    Use   [Q-D.for, 468]         cbn

answr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 177]     bn
    Use   [psis.for, 183]        bn
    Use   [psis.for, 185]        bn
    Use   [psis.for, 187]        bn
    Use   [psis.for, 189]        bn

answr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 271]     cbn
    Use   [psis.for, 277]        cbn
    Use   [psis.for, 279]        cbn
    Use   [psis.for, 281]        cbn
    Use   [psis.for, 283]        cbn

answr    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 253]     bn
    Use   [T-00.for, 259]        bn
    Use   [T-00.for, 261]        bn
    Use   [T-00.for, 263]        bn
    Use   [T-00.for, 265]        bn

answr    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 347]     cbn
    Use   [T-00.for, 353]        cbn
    Use   [T-00.for, 355]        cbn
    Use   [T-00.for, 357]        cbn
    Use   [T-00.for, 359]        cbn

answr    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1084]   bn
    Use   [Tmat1.for, 1090]      bn
    Use   [Tmat1.for, 1092]      bn
    Use   [Tmat1.for, 1094]      bn
    Use   [Tmat1.for, 1096]      bn

answr    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1178]   cbn
    Use   [Tmat1.for, 1184]      cbn
    Use   [Tmat1.for, 1186]      cbn
    Use   [Tmat1.for, 1188]      cbn
    Use   [Tmat1.for, 1190]      cbn

apr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 141]     bessel
    Set   [psis.for, 146]        bessel
    Use   [psis.for, 151]        bessel
    Set   [psis.for, 154]        bessel

apr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 235]     cbess
    Set   [psis.for, 240]        cbess
    Use   [psis.for, 245]        cbess
    Set   [psis.for, 248]        cbess

apr    (Variable)
  Declared as: DOUBLE
    Define   [Q-D.for, 326]      bessel
    Set   [Q-D.for, 331]         bessel
    Use   [Q-D.for, 336]         bessel
    Set   [Q-D.for, 339]         bessel

apr    (Variable)
  Declared as: COMPLEX
    Define   [Q-D.for, 420]      cbess
    Set   [Q-D.for, 425]         cbess
    Use   [Q-D.for, 430]         cbess
    Set   [Q-D.for, 433]         cbess

apr    (Variable)
  Declared as: DOUBLE
    Define   [psis.for, 141]     bessel
    Set   [psis.for, 146]        bessel
    Use   [psis.for, 151]        bessel
    Set   [psis.for, 154]        bessel

apr    (Variable)
  Declared as: COMPLEX
    Define   [psis.for, 235]     cbess
    Set   [psis.for, 240]        cbess
    Use   [psis.for, 245]        cbess
    Set   [psis.for, 248]        cbess

apr    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 217]     bessel
    Set   [T-00.for, 222]        bessel
    Use   [T-00.for, 227]        bessel
    Set   [T-00.for, 230]        bessel

apr    (Variable)
  Declared as: COMPLEX
    Define   [T-00.for, 311]     cbess
    Set   [T-00.for, 316]        cbess
    Use   [T-00.for, 321]        cbess
    Set   [T-00.for, 324]        cbess

apr    (Variable)
  Declared as: DOUBLE
    Define   [Tmat1.for, 1048]   bessel
    Set   [Tmat1.for, 1053]      bessel
    Use   [Tmat1.for, 1058]      bessel
    Set   [Tmat1.for, 1061]      bessel

apr    (Variable)
  Declared as: COMPLEX
    Define   [Tmat1.for, 1142]   cbess
    Set   [Tmat1.for, 1147]      cbess
    Use   [Tmat1.for, 1152]      cbess
    Set   [Tmat1.for, 1155]      cbess

ar    (Variable)
  Declared as: DOUBLE
    Define   [T-00.for, 2]       (Unnamed_Main)
    Declare   [T-00.for, 4]      (Unnamed_Main)
    Set   [T-00.for, 51]         (Unnamed_Main)
    Set   [T-00.for, 163]        (Unnamed_Main)
    Set   [T-00.for, 172]        (Unnamed_Main)
    Set   [T-00.for, 187]        (Unnamed_Main)
    Use   [T-00.for, 192]        (Unnamed_Main)
    Contain   [T-00.for, 9]      hej

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ